-- card: 6033 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 5187
-- name: print w/out TN top


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=0 right=20 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Title to Print
----- HyperTalk script -----
on mouseUp
  global listSelected, lineClicked
  put clickLine() into lineClicked
  -- determine how many lines are hidden above
  put (the scroll of me / textHeight of me) into linesAbove
  -- add that number to the relative position clicked
  add linesAbove to lineClicked
  -- userLevel must be set to 4 or 5 for select to work
  put userLevel into tempUserLevel
  set userLevel to 5
  select line lineClicked of card field "list Index"
  put tempUserLevel into userLevel
  if the selection is empty
  then
  exit mouseUp
end if
put the selection into listSelected
end mouseUp


-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=20 right=53 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Headings


-- part 5 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=0 top=52 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List
----- HyperTalk script -----
on mouseUp
  global listSelected, lineClicked
  put clickLine() into lineClicked
  -- determine how many lines are hidden above
  put (the scroll of me / textHeight of me) into linesAbove
  -- add that number to the relative position clicked
  add linesAbove to lineClicked
  -- userLevel must be set to 4 or 5 for select to work
  put userLevel into tempUserLevel
  set userLevel to 5
  select line lineClicked of card field "list Index"
  put tempUserLevel into userLevel
  if the selection is empty
  then
  exit mouseUp
end if
put the selection into listSelected
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=495 top=53 right=341 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part contents for card part 2
----- text -----
LIST NAME:Untitled

-- part contents for card part 4
----- text -----
  #  | Description
     | File Name

-- part contents for card part 5
----- text -----
  1. | none
     | ZZZ5
  2. | none
     | Bad Tiny Pict
  3. | none
     | aaad
  4. | none
     | aaae
  5. | none
     | Screen Dump 1
  6. | none
     | Screen Dump 2
  7. | none
     | About This Graphic
  8. | none
     | Title Bar
  9. | none
     | Lists
 10. | none
     | Keywords dialog
 11. | none
     | Help view
 12. | none
     | File Server PICT
 13. | none
     | DispPICT window